home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Src Code / SURFEDIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.0 KB  |  83 lines
  1. {**********************************************}
  2. {   TSurfaceSeries Editor Dialog               }
  3. {   Copyright (c) 1996-98 by David Berneda     }
  4. {**********************************************}
  5. {$I teedefs.inc}
  6. unit SurfEdit;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Chart, TeeSurfa;
  13.  
  14. type
  15.   TSurfaceSeriesEditor = class(TForm)
  16.     Button2: TButton;
  17.     Button3: TButton;
  18.     RadioGroup1: TRadioGroup;
  19.     procedure FormShow(Sender: TObject);
  20.     procedure Button2Click(Sender: TObject);
  21.     procedure Button3Click(Sender: TObject);
  22.     procedure RadioGroup1Click(Sender: TObject);
  23.     procedure FormCreate(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.     CreatingForm : Boolean;
  27.     Surface      : TSurfaceSeries;
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35. Uses PenDlg, BrushDlg, TeeProcs, TeeGriEd;
  36.  
  37. procedure TSurfaceSeriesEditor.FormShow(Sender: TObject);
  38. begin
  39.   Screen.Cursor:=crDefault;
  40.   Surface:=TSurfaceSeries(Tag);
  41.   With Surface do
  42.   begin
  43.     if WireFrame then RadioGroup1.ItemIndex:=1 else
  44.     if DotFrame then RadioGroup1.ItemIndex:=2 else
  45.                      RadioGroup1.ItemIndex:=0;
  46.   end;
  47.   TeeInsertGrid3DForm(Parent,Surface);
  48.   CreatingForm:=False;
  49. end;
  50.  
  51. procedure TSurfaceSeriesEditor.Button2Click(Sender: TObject);
  52. begin
  53.   EditChartPen(Self,Surface.Pen);
  54. end;
  55.  
  56. procedure TSurfaceSeriesEditor.Button3Click(Sender: TObject);
  57. begin
  58.   EditChartBrush(Self,Surface.Brush);
  59. end;
  60.  
  61. procedure TSurfaceSeriesEditor.RadioGroup1Click(Sender: TObject);
  62. begin
  63.   if not CreatingForm then
  64.   Case RadioGroup1.ItemIndex of
  65.     0: { solid }
  66.        begin
  67.          Surface.DotFrame:=False;
  68.          Surface.WireFrame:=False;
  69.        end;
  70.     1: Surface.WireFrame:=True;
  71.     2: Surface.DotFrame:=True;
  72.   end;
  73. end;
  74.  
  75. procedure TSurfaceSeriesEditor.FormCreate(Sender: TObject);
  76. begin
  77.   CreatingForm:=True;
  78. end;
  79.  
  80. initialization
  81.   RegisterClass(TSurfaceSeriesEditor);
  82. end.
  83.